MESA PROCESSOR PRINCIPLES OF OPERATION - 

CHANGED CHAPTERS 


3 Memory organization 


All short pointers access memory locations within an mds. They 
access all local and some global frames (§3.2.2.2) 


3.2.2.2 Local and global frames 


Global Frames 

Programming Note: Except for the restriction that frames are 
contained entirely within a 64K bank, the maximum size of a 
frame is not specified by the architecture. 

GlobalFrameHandle: type * long pointer to GlobalVariables; 



trapxfers 

codelinks 


Figure 3.4 Global frame 


The overhead words contain the flag bits trapxfers and 

codelinks used during control transfers (§9.3) 

GlobalFrameBase: type ■ long pointer to GlobalOverhead; 

GlobalWord: type ■ machine dependent record [ 
available ( 0 : 0 .. 13 ): [0..37777B], 
trapxfers (0: 14..14): boolean, 
codelinks (o: 15..15): boolean], 

GlobalOverhead: type a machine dependent record [ 
available (0): unspecified, 
word ( 1 ): GlobalWord, 
global ( 2 ): GlobalVariables]; 
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Local Frames 

The globallink points to the procedure's global frame index. It 
is used to gain access to the procedure's global variables. 



Local Overhead: type = machine dependent record [ 
word (o): LocalWord, 
returnlink (i): ShortControlLink, 
globallink ( 2 ): GFTHandle, 
pc (3): CARDINAL, 
local ( 4 ): Local Variables]; 


3 . 3.1 Control registers 


Notice that a local frame is sufficient to determine all of the 
other registers: given a local frame pointer, the program 
counter is obtained from its pc field, the global frame index 
from its globallink field, and the global frame handle and code 
segment address from the global frame table. 

The global frame index of the current context is contained in 
the sixteen bit register gfi. Its value is obtained using 
LocalBase[LF].globallink. 

gfi: GFTHandle; 

The address of the global frame of the current context is 
contained in the 32 bit register gf. Its value is obtained using 
GFT[GFi].globalFrame. 

gf: GlobalFrameHandle; 

The address of the code segment of the current context is 
contained in the register cb (the code base, a long pointer). Its 
value is obtained using GFT[GFi].codebase. 
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7 

Assignment instructions 


7.2.2 Global frame access 


LGAn Long Global Address n 

LG An: PROCEDURE [n: [o..l]] a 
BEGIN 

PushLong[GF + n]; 
end; 

LGAB Long Global Address Byte 

LGAB:PROCEDURE = 

BEGIN 

alpha: byte = GetCodeBytef]; 
PushLong[GF + alpha]; 
end; 

LGAW Long Global Address Word 

LGAW: PROCEDURE a 
BEGIN 

word: unspecified a GetCodeWord[]; 

PushLongfGF + word); 

end; 


7.2.2.1 Load global 


LGn Load Global n 

LGn: PROCEDURE [n: [0..2]] a 
BEGIN 

Push[Fetch[GF + n] j ]; 
end; 

LGB Load Global Byte 

LGB: PROCEDURE a 
BEGIN 

alpha: byte a GetCodeByteH; 
Push[Fetch[GF + alpha] f ]; 
end; 

LGDn Load Global Double n 

LGDn: PROCEDURE [n: [0,2]] a 
BEGIN 

Push[Fetch[GF + n] j ]; 
Push[Fetch[GF + n + 1 ] f ]; 
end; 

LGDB Load Global Double Byte 

LGDB:PROCEDURE a 
BEGIN 
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alpha: byte = GetCodeByte]]; 
Push[Fetch[GF + alpha] f j; 
Push[Fetch[GF + alpha +1] f ]; 
end; 


7.2.2.2 Store global 


SGB Store Global Byte 

SGB: PROCEDURE a 
BEGIN 

alpha: byte a GetCodeByte]]; 
Store[GF + alpha] f «- Pop]]; 
end; 

SGDB Store Global Double Byte 

SGDB:PROCEDURE a 
BEGIN 

alpha: byte a GetCodeByte]]; 
Store[GF + alpha +1] f <- Pop]]; 
Store[GF + alpha] | «- Pop]]; 
end; 


7.3.2.1 Read indirect 


RGIP Read Global Indirect Pair 

RGIP: PROCEDURE a 
BEGIN 

pair: NibblePair a GetCodeByte]]; 
ptr: pointer a FetchfGF + pair.left] |; 
PushfFetchMdstptr + pair.right] f ]; 
end; 

RGILP Read Global Indirect Long Pair 

RGILP: PROCEDURE a 
BEGIN 

pair: NibblePair a GetCodeByte]]; 
ptr: long pointer a ReadDbl[GF + pair.left]; 
Push[Fetch[ptr + LONG[pair.right]] f ]; 
end; 


9 Data types 


9.1 Control links 


LinkType: type a { 

frame, oldProcedure, indirect, newProcedure}; 
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ControlLinkType: procedure [link: ControlLink] 
returns [LinkType] a 

BEGIN 

cl: TaggedControlLink ■ LOOPHOLE[link]; 
return! 

SELECT Cl .tag FROM 
o a > frame, 

1 a > oldProcedure, 

2 a > indirect, 

endcase a > newProcedure]; 

end; 


9.1.4 New procedure descriptors 


A procedure descriptor is used to create a new context. It 
contains the information necessary to obtain the global frame 
index gfi, the global frame pointer gf, the code segment 
pointer cb, the local frame pointer lf, and the starting pc value 
for the procedure. It consists of two fields: 

NewProcDesc: type a machine dependent record! 
taggedGFI(o):uNSPECiFiED, 
pc(i): cardinal]; 

MakeNewProcDesc: procedure [link: ControlLink] 
returns [NewProcDesc] a 

BEGIN 

if ControlLinkType[link] # newProcedure then error; 

RETURN[LOOPHOLE[link]]; 

end; 

The taggedGFI is the global frame index or'ed with 3. The new 
value of gfi is computed from taggedGFI. The global frame and 
the code base are then obtained from the global frame table 
using gfi. 

The following is a sketch of this process (ignoring traps and 
other types of control transfers). §9.3 contains a complete 
description. 

proc: ProcDesc; 

gfi «— And[proc.taggedGF, 177774b]; 
gf *- ReadDbl[@GFT[GFi].globalFrame]; 
cb «- ReadDbl[@GFT[GFi].codebase]; 


9.1.4.1 Global frame table 


The Global Frame Table (GFT) contains the global frame handle 
and codebase of each module instance. It is at a fixed location 
gft. The table is organized as an array; elements can be 
accessed by index GFTIndex, or by relative pointer GFTHandIe. 

gft: long pointer to GlobalFrameTable a 

LOOPHOLE[mGFT]; 

GlobalFrameTable: type * long base pointer to 
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array GFTIndex of GFTItem; 

GFTIndex: type = [0..16384); 

GFTHandle: type a GlobalFrameTable relative pointer to 
GFTItem; 

GFTItem: type a machine dependent record! 
globalFrame(O): GlobalFrameHandle, 
codebase(2): long pointer to CodeSegment]; 

Programming Note: By convention, the first entry of the GFT is 
not used. Procedure descriptors with a gfi of zero will always 
result in an UnboundTrap. 

The GFT can be shorter than the maximum size specified above. 
In this case, it is the responsibility of the programmer to ensure 
that no gfi's that exceed the size of the GFT are used; the 
processor does no dynamic bounds checking on gfi's. 


9.1.4.2 Descriptor instruction 


The descriptor instruction creates a procedure descriptor using 
gfi and a pc. 

DESC Descriptor 

DESC: PROCEDURE a 
BEGIN 

word: unspecified a GetCodeWordf]; 

Push[Or[GFi, 3]]; 

Push[word]; 

end; 


9.3 Control transfer primitive 


select ControlLinkTypefnDstl from 
newProcedure a > 

BEGIN 

word: BytePair; 

proc: NewProcDesc a MakeNewProcDesc[nDst]; 

gfi *—Andfproc.taggedGF, 177774b]; 

if gfi a loophole[o] then UnboundTrapfdst]; 

gf «- ReadDbl[@GFT{GFiJ.global Frame]; 

cb «- ReadDbli@GFT[GFi].codebase]; 

if Odd[LowHalf[CB]] then CodeTrap[GFi]; 

npc«- proc.pc; 

if npc a o then UnboundTrap[dst]; 
word«— ReadCode[nPC/2]; 
nLF «- AIIoc[if npc mod 2 a 0 then word.left 
else word.right]; 
npce-npc + 1; 

StoreMds[@LocalBase[nLF].globallink] f <-gfi; 
StoreMds[@LocalBase[nLF].returnlinki f «-src; 
end; 

frame = > 
begin 
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frame: FrameLink a MakeFrameLink[nOst]; 
if frame a loophole[o] then ControlTrap[src]; 
iuf *- frame; 

gfi <— FetchMds[@LocalBase[nLF].globallink] f; 
ifgfi a loophole[o] then UnboundTraptdst]; 
gf <- ReadDbl[@GFT[GFi].globalFramej; 
cb <- ReadDbl[@GFT[GFij.codebase]; 
if Odd[LowHalf[CB]J then CodeTrap[GFi]; 


9.4.1 Local function calls 


LFC: PROCEDURE a 

StoreMds[@LocalBase[nLF].globallink] | <—gfi; 


9.4.2 External function calls 


FetchLink: procedure [offset: byte] returns [ControlLink] a 

BEGIN 

word: GlobalWord a Fetch[@GlobalBase[GF].word] f; 
return! 

if word.codeiinks then Read Dbl[cB-LONG[(off set + 1)*2]] 
else ReadDbl[GlobalBase[GF]-(offset +i)* 2 ]]; 
end; 

Design Note: If the links are stored in the code segment, they 
must be contained in the same 64K bank as the code base. This 
ensures that the calculation of the address of the link will not 
underflow in the low-order word or cause a borrow from the 
high-order word. Since frames are always completely 
contained in a 64K bank, this calculation is also accurate if the 
links are stored in the global frame. 


9.5.1 Trap routines 


CodeTrap: procedure [gfi: GFTHandle] * { 
TrapOne[@SD[sCodeTrap], gfi]}; 
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Appendix A Values of constants 

Appendix A.2 Constant memory locations 

mGFT Global Frame Table 

mGFT: LONG CARDINAL a 400000B; 


Appendix B Opcodes 


LGAn Long Global Address n (n = 0..1) 
Push 32-bit value G + n. 


LGAB Long Global Address Byte 

Push 32-bit value G + al pha. 

LGAW Long Global Address Word 
Push 32-bit value G + alphabeta. 

OESC Descriptor 

Push 32-bit procedure descriptor with pc alphabeta. 
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